Komputer for Alle 2001 #6/CD 6 (Black) - 2001.iso/K-CS.dcr/00138_HiliteDown, Up--Next.ls

Text File | 2001-02-20 | 774 b | 28 lines

on new me
  set the visible of sprite the currentSpriteNum to 1
  set the visible of sprite (the currentSpriteNum + 1) to 0
  set the visible of sprite (the currentSpriteNum + 2) to 0
  set the visible of sprite (the currentSpriteNum + 3) to 0
end

on mouseEnter me
  set the visible of sprite (the currentSpriteNum + 1) to 1
  set the visible of sprite (the currentSpriteNum + 2) to 1
end

on mouseLeave me
  set the visible of sprite (the currentSpriteNum + 1) to 0
  set the visible of sprite (the currentSpriteNum + 2) to 0
  set the visible of sprite (the currentSpriteNum + 3) to 0
end

on mouseDown
  set the visible of sprite (the currentSpriteNum + 3) to 1
  updateStage()
end

on mouseUp
  set the visible of sprite (the currentSpriteNum + 3) to 0
  go(#next)
end